home *** CD-ROM | disk | FTP | other *** search
-
-
-
- SSSSEEEELLLLEEEECCCCTTTTEEEEDDDD((((3333FFFF)))) SSSSEEEELLLLEEEECCCCTTTTEEEEDDDD((((3333FFFF))))
-
-
-
- NNNNAAAAMMMMEEEE
- - return a kind type parameter given a decimal exponent range or
- precision.
-
- SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
- sssseeeelllleeeecccctttteeeedddd____iiiinnnntttt____kkkkiiiinnnndddd ((((rrrr))))
-
- sssseeeelllleeeecccctttteeeedddd____rrrreeeeaaaallll____kkkkiiiinnnndddd ((((pppp,,,,rrrr))))
-
- DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
- The Fortran 90 transformational function _s_e_l_e_c_t_e_d__i_n_t__k_i_n_d returns the
- kind type parameter of an integer type that can represent the range of
- values _n such that -10**_r < _n < 10**_r. If no such kind exists, the
- result is -1. If more than one kind meets the criteria, the result is
- the kind type parameter of the kind with the smallest decimal exponent
- range. Both _r and the result are scalars of integer type.
-
- The _s_e_l_e_c_t_e_d__r_e_a_l__k_i_n_d function is similar, but returns the kind type
- parameter of a real type that has the decimal precision of at least _p
- digits and a decimal exponent range of at least _r. While precision _p and
- range _r are optional, at least one of them must be specified. They must
- be scalar and of integer type. If more than one kind satisfies the
- condition, the result is the kind type parameter of the kind with the
- smallest decimal precision. If a suitable kind is not found, the result
- is:
-
- ----1111 if the requested precision is unavailable
-
- ----2222 if the requested range is unavailable
-
- ----3333 if both are unavailable
-
- SSSSEEEEEEEE AAAALLLLSSSSOOOO
- kind(3F), precision(3F), range(3F)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PPPPaaaaggggeeee 1111
-
-
-
-